home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / language / harvest.cpt / Harvest C / DHashLink.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-06-16  |  1.4 KB  |  62 lines
  1. /*
  2.     Harvest C
  3.     Copyright 1992 Eric W. Sink.  All rights reserved.
  4.     
  5.     This file is part of Harvest C.
  6.     
  7.     Harvest C is free software; you can redistribute it and/or modify
  8.     it under the terms of the GNU Generic Public License as published by
  9.     the Free Software Foundation; either version 2, or (at your option)
  10.     any later version.
  11.     
  12.     Harvest C is distributed in the hope that it will be useful,
  13.     but WITHOUT ANY WARRANTY; without even the implied warranty of
  14.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15.     GNU General Public License for more details.
  16.     
  17.     You should have received a copy of the GNU General Public License
  18.     along with Harvest C; see the file COPYING.  If not, write to
  19.     the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  20.     
  21.     Harvest C is not in any way a product of the Free Software Foundation.
  22.     Harvest C is not GNU software.
  23.     Harvest C is not public domain.
  24.  
  25.     This file may have other copyrights which are applicable as well.
  26.  
  27. */
  28.  
  29. /*
  30.     DHashLink.c
  31. */
  32.  
  33. #include "DHashLink.h"
  34.  
  35. void DHashLink::IHashLink(DSymbol *obj,DHashLink *link)
  36. {
  37.     theItem = obj;
  38.     next = link;
  39. }
  40.  
  41. DSymbol * DHashLink::SearchChain(char *s)
  42. {
  43.     if (theItem->NameIs(s)) {
  44.         return theItem;
  45.     }
  46.     else {
  47.         if (next) {
  48.             return next->SearchChain(s);
  49.         }
  50.         else {
  51.             return NULL;
  52.         }
  53.     }
  54. }
  55.  
  56. void DHashLink::Dispose(void)
  57. {
  58.     if (next)
  59.         next->Dispose();
  60.     theItem->Dispose();
  61.     inherited::Dispose();
  62. }